home *** CD-ROM | disk | FTP | other *** search
/ The See Clearly Method / TheSeeClearlyMethod.iso / Media / Projector.exe / Projector.dxr / 00003_New Behavior.ls < prev    next >
Encoding:
Text File  |  2002-02-15  |  441 b   |  26 lines
  1. global myFile
  2.  
  3. on mouseEnter me
  4.   cursor(280)
  5. end
  6.  
  7. on mouseLeave me
  8.   cursor(0)
  9. end
  10.  
  11. on mouseUp me
  12.   if objectp(myFile) then
  13.     myFile = 0
  14.   end if
  15.   myFile = new(xtra("fileio"))
  16.   openFile(myFile, "c:\agreed.txt", 0)
  17.   delete(myFile)
  18.   createFile(myFile, "c:\agreed.txt")
  19.   openFile(myFile, "c:\agreed.txt", 0)
  20.   mySaveString = member("agreed").text
  21.   writeString(myFile, mySaveString)
  22.   closeFile(myFile)
  23.   myFile = 0
  24.   go(1, "qtpc")
  25. end
  26.